home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / SwapMM.zprx < prev    next >
Text File  |  1995-01-22  |  3KB  |  130 lines
  1. /*
  2.     $VER: SwapMealMasters.zprx V1.0 (20.01.1995) - Björn Koch
  3.  
  4.  
  5. Dieses Skript wurde speziell für Zodiac`s Point erstellt, und dient
  6. zum automatischen Auslagern von MealMaster-Rezepten in ein
  7. einstellbares Verzeichnes. Die ausgelagerten Rezepte koennen auf
  8. Wunsch direkt gelöscht, oder zum Aufräumen markiert werden.
  9.  
  10. Dieses Skript darf beliebig kopieren werden, solange es zusammen mit
  11. Zodiac's Point eingesetzt wird. Veränderungen ohne Erlaubnis des
  12. Autors (außer dem Konfigurationsteil) sind nicht erlaubt.
  13.  
  14.  
  15.     Hinweise zur Installation:
  16.  
  17. Einfach dieses Skript in das Rexx-Verzeichnis von ZP kopieren, die
  18. Feinabstimmung vornehmen und auf Wunsch die Zeile
  19. "F1:SYS:Rexxc/rx ZPoint:Rexx/SwapMM.zprx %s"
  20. in die Datei 'fkeys.zp' einfügen.
  21.  
  22. Viel effektiver jedoch ist das Einfügen in die Skript-Datei
  23. 'stepin.zp' des entsprechenden Brettes. Dann sollte der Eintrag wie
  24. folgt lauten:
  25. "Run >NIL: SYS:Rexxc/rx ZPoint:Rexx/SwapMM.zprx".
  26.  
  27.     Dabei bitte an das S-Bit denken !!!
  28.  
  29. Nähere Angaben zu den Dateien 'fkeys.zp' und 'stepin.zp' sind in der
  30. Guide-Datei zu Zodiac`s Point zu finden.
  31.  
  32. Der Autor kann keine Haftung für eventuelle Schäden und Verluste jeder
  33. Art, die im Zusammenhang mit der Benutzung dieses Skriptes entstehen
  34. haftbar gemacht werden.
  35.  
  36. Für Anregungen, Fehlermeldungen und Verbesserungsvorschläge ist der
  37. Autor sehr dankbar und wie folgt zu erreichen:
  38.  
  39.     Björn Koch          H.Humpel@NOSTLGIC.oche.de
  40.  
  41. */     
  42.  
  43. /* Die Feinabstimmung: (Beginn Konfigurationsteil) */
  44.  
  45. MMFind = 'MMMMM-----'         /* Daran erkennt man das MealMaster-Format */
  46. TemporaerDatei = 'T:find.mm'  /* Die Zwischenablage */
  47. RezeptPfad = 'RAM:T/'         /* Hier sollen die Rezepte hin ( / oder : nicht vergessen!) */
  48. SaveHeader = 0                /* Soll der Nachrichtenkopf mit gespeichert werden? */
  49. AutoDelete = 2                /* 0=nichts tun, 1=markiere zum Löschen, 2=lösche jetzt */
  50.  
  51. /* AB HIER BITTE NICHTS MEHR ÄNDERN!!! (Ende Konfigurationsteil) */
  52.  
  53.  
  54. OPTIONS RESULTS
  55.  
  56. PARSE ARG ZPPort
  57. IF ZPPort == "" THEN
  58.    ZPPort = 'ZPoint'
  59. ADDRESS VALUE ZPPort
  60.  
  61. WHICHLEVEL
  62. Level=RESULT
  63. IF Level ~= "BOARD" THEN DO
  64.     REQUESTNOTIFY " Dieses Skript arbeitet nur, wenn Du in einem Brett bist!!"
  65.     EXIT
  66.   END
  67.  
  68.  
  69. SELECTMESSAGE NONE
  70. JUMPTOMESSAGE 1
  71. Anzahl = 0
  72. Fehler = 0
  73. MESSAGEINFO AGE
  74. MarkNeu = RESULT
  75. IF RESULT = NEW THEN
  76.     CALL Untersuchen
  77. JUMPTONEW DOWN
  78. DO WHILE RC
  79.     CALL Untersuchen
  80.     JUMPTONEW DOWN
  81. END
  82.  
  83. GUILOCK OFF
  84. String = "  Es wurden "||Anzahl||" Rezepte gespeichert. Es traten "||Fehler||" Fehler auf !!!  "
  85. REQUESTNOTIFY String
  86.  
  87. EXIT
  88.  
  89.  
  90. /* Die Unterroutine... */
  91.  
  92. Untersuchen:
  93.     SAVEMESSAGEBODY TemporaerDatei
  94.     IstMM = 0
  95.     CALL Open('DummyDatei',TemporaerDatei,'R')
  96.     DO WHILE (~EOF('DummyDatei')&(IstMM = 0))
  97.     Zeile = ReadLn('DummyDatei')
  98.     IF (Word(Zeile,1) = MMFind) THEN
  99.         IstMM = 1
  100.     END
  101.     CALL CLOSE('DummyDatei')
  102.     IF (IstMM = 1) THEN DO
  103.     MESSAGEINFO SUBJECT
  104.     DateiName = Translate(RESULT,"_"," .:;")
  105.     DateiName = RezeptPfad||DateiName
  106.     IF SaveHeader = 1 THEN
  107.         SAVEMESSAGE DateiName
  108.     ELSE
  109.         SAVEMESSAGEBODY DateiName
  110.     IF (RC = 1) THEN DO
  111.         IF (AutoDelete = 2) THEN
  112.         DELETE ONE
  113.         IF (AutoDelete = 1) THEN DO
  114.         DELETE LATER
  115.         MARKASOLD
  116.         END
  117.         Anzahl = Anzahl + 1
  118.         END
  119.     ELSE DO
  120.         REQUESTNOTIFY " Diese Datei ist zwar eine MealMaster-Datei, beim Speichern trat jedoch ein Fehler auf!! "
  121.         Fehler = Fehler + 1
  122.     END
  123.     END
  124.     ADDRESS COMMAND
  125.     'delete >NIL:' TemporaerDatei
  126.     ADDRESS VALUE ZPPort
  127. RETURN
  128.  
  129. /* ... und ENDE! */  
  130.